This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.
Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Cmd+Shift+Enter.
#testing very variable threshold and steepness
set.seed(123)
global.threshold<-0:100
global.steepness<-10:100
threshold.for.action<- 0.9
decay.rate<- 0.9
test.network.2<- net.barabasi.albert(100,2, detectCores(), FALSE) %>%
add_influencer(influencer.degree=25, population=100)
draw.net.large.network(test.network.2, influencer=101)

test.2.connection.matrix<- initialize_matrix(matrix(,101,101), test.network.2, 101)
test.2.activation.matrix<- matrix(0,cycles,101) %>%
activate_influencer(population=100) %>%
update.rule(.,test.2.connection.matrix, population = 100)
test.2.data<- data.frame(test.2.activation.matrix) %>%
gather(key="Node", value= "activation") %>%
cbind.data.frame(cycle=rep(seq(1:100),101))
new.actions.each.cycle.plot(test.2.activation.matrix, 100)

plot.by.degree(test.2.data, test.2.connection.matrix, 100)
Ignoring unknown aesthetics: line

#testing uniform
set.seed(123)
global.threshold<-50:50
global.steepness<-10:10
threshold.for.action<- 0.9
decay.rate<- 0.9
influencer.degree<- 25
test.network.3<-net.barabasi.albert(100,2, detectCores(), FALSE) %>%
add_influencer(influencer.degree=influencer.degree, population=100)
draw.net.large.network(test.network.3, influencer=101)

test.3.connection.matrix<- initialize_matrix(matrix(,101,101), test.network.3, 101)
test.3.activation.matrix<- matrix(0,cycles,101) %>%
activate_influencer(population=100) %>%
update.rule(.,test.3.connection.matrix, population = 100)
test.3.data<- data.frame(test.3.activation.matrix) %>%
gather(key="Node", value= "activation") %>%
cbind.data.frame(cycle=rep(seq(1:100),101))
new.actions.each.cycle.plot(test.3.activation.matrix, 100)

plot.by.degree(test.3.data, test.3.connection.matrix, 100)
Ignoring unknown aesthetics: line

testing very high vs. low influencer degree high degree
set.seed(123)
global.threshold<-50:50
global.steepness<-10:10
threshold.for.action<- 0.9
decay.rate<- 0.9
influencer.degree<- 50
test.network.4<-net.barabasi.albert(100,2, detectCores(), FALSE) %>%
add_influencer(influencer.degree=influencer.degree, population=100)
draw.net.large.network(test.network.4, influencer=101)

test.4.connection.matrix<- initialize_matrix(matrix(,101,101), test.network.4, 101)
test.4.activation.matrix<- matrix(0,cycles,101) %>%
activate_influencer(population=100) %>%
update.rule(.,test.4.connection.matrix, population = 100)
test.4.data<- data.frame(test.4.activation.matrix) %>%
gather(key="Node", value= "activation") %>%
cbind.data.frame(cycle=rep(seq(1:100),101))
new.actions.each.cycle.plot(test.4.activation.matrix, 100)

plot.by.degree(test.4.data, test.4.connection.matrix, 100)
Ignoring unknown aesthetics: line

#low degree
set.seed(123)
global.threshold<-50:50
global.steepness<-10:10
threshold.for.action<- 0.9
decay.rate<- 0.9
influencer.degree<- 10
test.network.5<-net.barabasi.albert(100,2, detectCores(), FALSE) %>%
add_influencer(influencer.degree=influencer.degree, population=100)
draw.net.large.network(test.network.5, influencer=101)

test.5.connection.matrix<- initialize_matrix(matrix(,101,101), test.network.5, 101)
test.5.activation.matrix<- matrix(0,cycles,101) %>%
activate_influencer(population=100) %>%
update.rule(.,test.5.connection.matrix, population = 100)
test.5.data<- data.frame(test.5.activation.matrix) %>%
gather(key="Node", value= "activation") %>%
cbind.data.frame(cycle=rep(seq(1:100),101))
new.actions.each.cycle.plot(test.5.activation.matrix, 100)

plot.by.degree(test.5.data, test.5.connection.matrix, 100)
Ignoring unknown aesthetics: line

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKVGhpcyBpcyBhbiBbUiBNYXJrZG93bl0oaHR0cDovL3JtYXJrZG93bi5yc3R1ZGlvLmNvbSkgTm90ZWJvb2suIFdoZW4geW91IGV4ZWN1dGUgY29kZSB3aXRoaW4gdGhlIG5vdGVib29rLCB0aGUgcmVzdWx0cyBhcHBlYXIgYmVuZWF0aCB0aGUgY29kZS4gCgpUcnkgZXhlY3V0aW5nIHRoaXMgY2h1bmsgYnkgY2xpY2tpbmcgdGhlICpSdW4qIGJ1dHRvbiB3aXRoaW4gdGhlIGNodW5rIG9yIGJ5IHBsYWNpbmcgeW91ciBjdXJzb3IgaW5zaWRlIGl0IGFuZCBwcmVzc2luZyAqQ21kK1NoaWZ0K0VudGVyKi4gCgoKI3Rlc3RpbmcgdmVyeSB2YXJpYWJsZSB0aHJlc2hvbGQgYW5kIHN0ZWVwbmVzcwpgYGB7cn0Kc2V0LnNlZWQoMTIzKQoKZ2xvYmFsLnRocmVzaG9sZDwtMDoxMDAKCmdsb2JhbC5zdGVlcG5lc3M8LTEwOjEwMAoKdGhyZXNob2xkLmZvci5hY3Rpb248LSAwLjkKCmRlY2F5LnJhdGU8LSAwLjkKCnRlc3QubmV0d29yay4yPC0gbmV0LmJhcmFiYXNpLmFsYmVydCgxMDAsMiwgZGV0ZWN0Q29yZXMoKSwgRkFMU0UpICU+JQogIGFkZF9pbmZsdWVuY2VyKGluZmx1ZW5jZXIuZGVncmVlPTI1LCBwb3B1bGF0aW9uPTEwMCkKCmRyYXcubmV0LmxhcmdlLm5ldHdvcmsodGVzdC5uZXR3b3JrLjIsIGluZmx1ZW5jZXI9MTAxKQoKdGVzdC4yLmNvbm5lY3Rpb24ubWF0cml4PC0gaW5pdGlhbGl6ZV9tYXRyaXgobWF0cml4KCwxMDEsMTAxKSwgdGVzdC5uZXR3b3JrLjIsIDEwMSkKCnRlc3QuMi5hY3RpdmF0aW9uLm1hdHJpeDwtIG1hdHJpeCgwLGN5Y2xlcywxMDEpICU+JQogIGFjdGl2YXRlX2luZmx1ZW5jZXIocG9wdWxhdGlvbj0xMDApICU+JQogIHVwZGF0ZS5ydWxlKC4sdGVzdC4yLmNvbm5lY3Rpb24ubWF0cml4LCBwb3B1bGF0aW9uID0gMTAwKQoKdGVzdC4yLmRhdGE8LSBkYXRhLmZyYW1lKHRlc3QuMi5hY3RpdmF0aW9uLm1hdHJpeCkgJT4lCiAgZ2F0aGVyKGtleT0iTm9kZSIsIHZhbHVlPSAiYWN0aXZhdGlvbiIpICU+JQogIGNiaW5kLmRhdGEuZnJhbWUoY3ljbGU9cmVwKHNlcSgxOjEwMCksMTAxKSkKCm5ldy5hY3Rpb25zLmVhY2guY3ljbGUucGxvdCh0ZXN0LjIuYWN0aXZhdGlvbi5tYXRyaXgsIDEwMCkKcGxvdC5ieS5kZWdyZWUodGVzdC4yLmRhdGEsIHRlc3QuMi5jb25uZWN0aW9uLm1hdHJpeCwgMTAwKQoKCmBgYAoKI3Rlc3RpbmcgdW5pZm9ybSAKYGBge3J9CnNldC5zZWVkKDEyMykKCmdsb2JhbC50aHJlc2hvbGQ8LTUwOjUwCgpnbG9iYWwuc3RlZXBuZXNzPC0xMDoxMAoKdGhyZXNob2xkLmZvci5hY3Rpb248LSAwLjkKCmRlY2F5LnJhdGU8LSAwLjkKCmluZmx1ZW5jZXIuZGVncmVlPC0gMjUKCnRlc3QubmV0d29yay4zPC1uZXQuYmFyYWJhc2kuYWxiZXJ0KDEwMCwyLCBkZXRlY3RDb3JlcygpLCBGQUxTRSkgJT4lCiAgYWRkX2luZmx1ZW5jZXIoaW5mbHVlbmNlci5kZWdyZWU9aW5mbHVlbmNlci5kZWdyZWUsIHBvcHVsYXRpb249MTAwKQoKZHJhdy5uZXQubGFyZ2UubmV0d29yayh0ZXN0Lm5ldHdvcmsuMywgaW5mbHVlbmNlcj0xMDEpCgp0ZXN0LjMuY29ubmVjdGlvbi5tYXRyaXg8LSBpbml0aWFsaXplX21hdHJpeChtYXRyaXgoLDEwMSwxMDEpLCB0ZXN0Lm5ldHdvcmsuMywgMTAxKQoKdGVzdC4zLmFjdGl2YXRpb24ubWF0cml4PC0gbWF0cml4KDAsY3ljbGVzLDEwMSkgJT4lCiAgYWN0aXZhdGVfaW5mbHVlbmNlcihwb3B1bGF0aW9uPTEwMCkgJT4lCiAgdXBkYXRlLnJ1bGUoLix0ZXN0LjMuY29ubmVjdGlvbi5tYXRyaXgsIHBvcHVsYXRpb24gPSAxMDApCgp0ZXN0LjMuZGF0YTwtIGRhdGEuZnJhbWUodGVzdC4zLmFjdGl2YXRpb24ubWF0cml4KSAlPiUKICBnYXRoZXIoa2V5PSJOb2RlIiwgdmFsdWU9ICJhY3RpdmF0aW9uIikgJT4lCiAgY2JpbmQuZGF0YS5mcmFtZShjeWNsZT1yZXAoc2VxKDE6MTAwKSwxMDEpKQoKbmV3LmFjdGlvbnMuZWFjaC5jeWNsZS5wbG90KHRlc3QuMy5hY3RpdmF0aW9uLm1hdHJpeCwgMTAwKQpwbG90LmJ5LmRlZ3JlZSh0ZXN0LjMuZGF0YSwgdGVzdC4zLmNvbm5lY3Rpb24ubWF0cml4LCAxMDApCgpgYGAKCgoKdGVzdGluZyB2ZXJ5IGhpZ2ggdnMuIGxvdyBpbmZsdWVuY2VyIGRlZ3JlZQpoaWdoIGRlZ3JlZQpgYGB7cn0Kc2V0LnNlZWQoMTIzKQoKZ2xvYmFsLnRocmVzaG9sZDwtNTA6NTAKCmdsb2JhbC5zdGVlcG5lc3M8LTEwOjEwCgp0aHJlc2hvbGQuZm9yLmFjdGlvbjwtIDAuOQoKZGVjYXkucmF0ZTwtIDAuOQoKaW5mbHVlbmNlci5kZWdyZWU8LSA1MAoKdGVzdC5uZXR3b3JrLjQ8LW5ldC5iYXJhYmFzaS5hbGJlcnQoMTAwLDIsIGRldGVjdENvcmVzKCksIEZBTFNFKSAlPiUKICBhZGRfaW5mbHVlbmNlcihpbmZsdWVuY2VyLmRlZ3JlZT1pbmZsdWVuY2VyLmRlZ3JlZSwgcG9wdWxhdGlvbj0xMDApCgpkcmF3Lm5ldC5sYXJnZS5uZXR3b3JrKHRlc3QubmV0d29yay40LCBpbmZsdWVuY2VyPTEwMSkKCnRlc3QuNC5jb25uZWN0aW9uLm1hdHJpeDwtIGluaXRpYWxpemVfbWF0cml4KG1hdHJpeCgsMTAxLDEwMSksIHRlc3QubmV0d29yay40LCAxMDEpCgp0ZXN0LjQuYWN0aXZhdGlvbi5tYXRyaXg8LSBtYXRyaXgoMCxjeWNsZXMsMTAxKSAlPiUKICBhY3RpdmF0ZV9pbmZsdWVuY2VyKHBvcHVsYXRpb249MTAwKSAlPiUKICB1cGRhdGUucnVsZSguLHRlc3QuNC5jb25uZWN0aW9uLm1hdHJpeCwgcG9wdWxhdGlvbiA9IDEwMCkKCnRlc3QuNC5kYXRhPC0gZGF0YS5mcmFtZSh0ZXN0LjQuYWN0aXZhdGlvbi5tYXRyaXgpICU+JQogIGdhdGhlcihrZXk9Ik5vZGUiLCB2YWx1ZT0gImFjdGl2YXRpb24iKSAlPiUKICBjYmluZC5kYXRhLmZyYW1lKGN5Y2xlPXJlcChzZXEoMToxMDApLDEwMSkpCgpuZXcuYWN0aW9ucy5lYWNoLmN5Y2xlLnBsb3QodGVzdC40LmFjdGl2YXRpb24ubWF0cml4LCAxMDApCnBsb3QuYnkuZGVncmVlKHRlc3QuNC5kYXRhLCB0ZXN0LjQuY29ubmVjdGlvbi5tYXRyaXgsIDEwMCkKYGBgCgoKI2xvdyBkZWdyZWUKYGBge3J9CnNldC5zZWVkKDEyMykKCmdsb2JhbC50aHJlc2hvbGQ8LTUwOjUwCgpnbG9iYWwuc3RlZXBuZXNzPC0xMDoxMAoKdGhyZXNob2xkLmZvci5hY3Rpb248LSAwLjkKCmRlY2F5LnJhdGU8LSAwLjkKCmluZmx1ZW5jZXIuZGVncmVlPC0gMTAKCnRlc3QubmV0d29yay41PC1uZXQuYmFyYWJhc2kuYWxiZXJ0KDEwMCwyLCBkZXRlY3RDb3JlcygpLCBGQUxTRSkgJT4lCiAgYWRkX2luZmx1ZW5jZXIoaW5mbHVlbmNlci5kZWdyZWU9aW5mbHVlbmNlci5kZWdyZWUsIHBvcHVsYXRpb249MTAwKQoKZHJhdy5uZXQubGFyZ2UubmV0d29yayh0ZXN0Lm5ldHdvcmsuNSwgaW5mbHVlbmNlcj0xMDEpCgp0ZXN0LjUuY29ubmVjdGlvbi5tYXRyaXg8LSBpbml0aWFsaXplX21hdHJpeChtYXRyaXgoLDEwMSwxMDEpLCB0ZXN0Lm5ldHdvcmsuNSwgMTAxKQoKdGVzdC41LmFjdGl2YXRpb24ubWF0cml4PC0gbWF0cml4KDAsY3ljbGVzLDEwMSkgJT4lCiAgYWN0aXZhdGVfaW5mbHVlbmNlcihwb3B1bGF0aW9uPTEwMCkgJT4lCiAgdXBkYXRlLnJ1bGUoLix0ZXN0LjUuY29ubmVjdGlvbi5tYXRyaXgsIHBvcHVsYXRpb24gPSAxMDApCgp0ZXN0LjUuZGF0YTwtIGRhdGEuZnJhbWUodGVzdC41LmFjdGl2YXRpb24ubWF0cml4KSAlPiUKICBnYXRoZXIoa2V5PSJOb2RlIiwgdmFsdWU9ICJhY3RpdmF0aW9uIikgJT4lCiAgY2JpbmQuZGF0YS5mcmFtZShjeWNsZT1yZXAoc2VxKDE6MTAwKSwxMDEpKQoKbmV3LmFjdGlvbnMuZWFjaC5jeWNsZS5wbG90KHRlc3QuNS5hY3RpdmF0aW9uLm1hdHJpeCwgMTAwKQpwbG90LmJ5LmRlZ3JlZSh0ZXN0LjUuZGF0YSwgdGVzdC41LmNvbm5lY3Rpb24ubWF0cml4LCAxMDApCmBgYAo=